home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / RAMSES 2.2 / RAMSES 2.2 Extras / AuxLibExtra .DEF / MatVecOps.DEF < prev    next >
Encoding:
Modula Definition  |  1996-06-21  |  1.4 KB  |  52 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE MatVecOps;
  2.  
  3.   (*******************************************************************
  4.  
  5.     Module  MatVecOps     (Version 1.0)
  6.  
  7.               Copyright ©1993 by Olivier Roth, Andreas Fischlin, 
  8.               and Swiss Federal Institute of Technology Zürich ETHZ 
  9.  
  10.       Purpose: Matrix Vector Operations
  11.               
  12.       Remarks: for scalar matrix operations see MatrixSclOps
  13.       
  14.                  This modulde is part of the Mat-library, which forms 
  15.                  part of the RAMSES package.
  16.               
  17.       Programming
  18.  
  19.           o Design and Implementation
  20.               O. Roth         3/12/90
  21.               A. Fischlin      28/05/93
  22.  
  23.               
  24.           Systems Ecology Group
  25.           Swiss Federal Institute of Technology Zurich ETHZ
  26.           Department of Environmental Sciences
  27.           Grabenstr. 3
  28.           CH-8952 Schlieren/Zurich
  29.           Switzerland
  30.  
  31.           Last revision of definition:  28/05/93 af
  32.  
  33.   *******************************************************************)
  34.  
  35.   FROM Matrices IMPORT Matrix;
  36.  
  37.  
  38.   VAR
  39.     matrixVecOpsOk: BOOLEAN; (* returns success of operation *)
  40.     
  41.  
  42.   PROCEDURE MatAdd ( a, b: Matrix;   c: Matrix ); (* c := a + b *)
  43.   PROCEDURE MatSub ( a, b: Matrix;   c: Matrix ); (* c := a - b *)
  44.   PROCEDURE MatMult( a, b: Matrix;   c: Matrix ); (* c := a * b *)
  45.  
  46.   PROCEDURE MatInv( a: Matrix );                   (* a := a^-1 *)
  47.  
  48.   PROCEDURE MatTranspose( a: Matrix );              (* a := a' *)
  49.  
  50.  
  51. END MatVecOps.
  52.